10 REM *** PERMA-LINE *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575 SALEM, OR 97309 ***
30 PRINTCHR$(147)"LOADING AND CHECKING DATA LINE:":J=52000:L=110:C=11
40 PRINTCHR$(19)TAB(31)L:PRINT:FORB=0TOC:READA:IFA<0ORA>255THEN60
50 POKEJ+B,A:X=X+A:NEXTB:READA:IFA=XTHEN70
60 PRINT"ERROR IN DATA LINE:"L:END
70 X=0:J=J+12:L=L+10:IFL<390THEN40
80 IFL=390THENC=12:GOTO40
90 PRINT"THE DATA IS OK AND LOADED...":PRINT
100 PRINT"SYS 52000 TO ACTIVATE...":NEW
110 DATA32,33,204,169,0,162,160,133,251,134,252,170,1700
120 DATA161,251,129,251,230,251,208,248,230,252,165,252,2628
130 DATA201,192,144,240,173,3,3,201,203,208,9,169,1746
140 DATA131,162,56,160,164,76,136,203,142,126,169,169,1694
150 DATA76,162,156,160,203,141,108,164,142,109,164,140,1725
160 DATA110,164,162,187,160,203,141,156,164,142,157,164,1910
170 DATA140,158,164,162,167,160,203,142,123,168,140,124,1851
180 DATA168,162,175,160,203,141,197,168,142,198,168,140,2022
190 DATA199,168,169,147,162,36,160,203,141,2,3,140,1530
200 DATA3,3,104,104,76,15,204,32,30,204,142,124,1041
210 DATA204,76,131,164,173,124,204,208,3,76,113,164,1640
220 DATA76,116,164,169,0,141,124,204,76,89,166,169,1494
230 DATA0,141,124,204,165,95,233,1,76,201,168,32,1440
240 DATA107,169,165,122,166,123,141,121,204,142,122,204,1786
250 DATA169,255,162,1,133,122,134,123,202,134,251,160,1846
260 DATA6,32,115,0,176,20,201,48,144,16,166,251,1175
270 DATA208,6,201,48,240,239,133,251,136,240,32,76,1810
280 DATA213,203,192,2,176,12,165,251,201,54,144,6,1619
290 DATA165,21,201,234,144,13,173,121,204,174,122,204,1776
300 DATA133,122,134,123,76,159,164,104,104,162,0,189,1470
310 DATA44,204,240,7,32,210,255,232,76,15,204,76,1595
320 DATA116,164,162,54,44,162,55,120,134,1,162,47,1221
330 DATA134,0,88,96,17,84,72,69,32,77,65,88,822
340 DATA73,77,85,77,32,76,73,78,69,32,78,85,835
350 DATA77,66,69,82,32,73,83,32,54,53,53,51,725
360 DATA53,46,13,0,17,80,69,82,77,65,45,76,623
370 DATA73,78,69,32,73,83,32,79,78,46,13,0,656
380 DATA17,80,69,82,77,65,45,76,73,78,69,32,763
390 DATA73,83,32,79,70,70,46,13,0,66,85,67,75,759